#!/usr/bin/perl

BEGIN{push(@INC,"../lib/")};
use IO::Socket::INET;
use clientcore;
use readutils;

$client = clientcore::new("clientcore");
$client->proxy("127.0.0.1:9999");#server ip port may be on another machine
    #read_with_position means read with auto recoder
    #read_with_position("perlRPC.t",5) means read 5 lines from "perlRPC.t" with auto recoder
    @line = readutils::read_with_position("perlRPC.t",5);
    #call server funcs()
    #t3 is server func() use RPC   server maybe on another machine
    @res  = $client->t3(@line);

print("\@res is @res\n");


